home *** CD-ROM | disk | FTP | other *** search
/ Draw 3 / Draw 3.iso / AOL90 / COMP02.000 / %MAINDIR% / CalendarResource.dll / HTML / IDH_ACDAYANDMONTHDCTRLUI4 < prev    next >
Encoding:
Text File  |  2004-11-29  |  2.7 KB  |  114 lines
  1. <HTML>
  2. <STYLE>
  3.     @import URL("res:IDS_ACDayMonthControl");
  4.     @import URL("res:IDS_ACDAYVIEW");
  5. </STYLE>
  6. <HEAD>
  7.  
  8. <SCRIPT LANGUAGE="javascript" src="res:ACDayMonthBody2.js" ></SCRIPT>
  9.  
  10. </HEAD>
  11.  
  12. <BODY id="DayMonthController" 
  13.     oncontextmenu="window.event.returnValue = false;"
  14.     onload="DoOnLoadBody();"
  15.     scroll=no topmargin=0 leftmargin=0>
  16.  
  17. <OBJECT id=ToolBarCtrl
  18.     CLASSID="clsid:F4F30C01-A7B4-492e-943E-58A7CF2D9DD6"
  19.     Width=100% Height=100%
  20.     STYLE="position: absolute; top:    0px; left:    0px; 
  21.         width:    expression(document.body.clientWidth);
  22.         height:    46px;"
  23. ></OBJECT>
  24.  
  25. <SCRIPT LANGUAGE="VBScript">
  26. sub ToolBarCtrl_ViewChange( iView )
  27.     if iView = 1 then
  28.         MakeMonthViewVisible
  29.     elseif iView = 0 then
  30.         MakeDayViewVisible
  31.     else 
  32.       MakeWeekViewVisible
  33.     end if
  34. end sub
  35. sub ToolBarCtrl_ButtonClick( nButton )
  36.     if nButton = 1 then
  37.         DoOnClickHelp
  38.     elseif nButton = 2 then
  39.         DoOnClickSettings
  40.     elseif nButton = 3 then
  41.         DoOnClickPrint
  42.     end if
  43. end sub
  44. sub ToolBarCtrl_Refresh()
  45.     if MonthViewIsVisible() then
  46.         MonthViewDiv.Refresh
  47.     elseif DayViewIsVisible() then
  48.         DayViewDivRefresh
  49.     else
  50.     WeekViewDivRefresh
  51.     end if
  52.  
  53.     ToolBarCtrl.RefreshDayMonthTitle
  54. end sub
  55. </SCRIPT>
  56. <OBJECT id=MonthViewDiv
  57.     CLASSID="clsid:0FE9096F-7F7A-4e40-857C-E48A53440DFE"
  58.     Width=100% Height=100%
  59.     STYLE="position: absolute; top:    46px; left:    0px; 
  60.         width:    expression(document.body.clientWidth - 1);
  61.         height:    expression(document.body.clientHeight - 46);
  62.         border-left: 1px solid #013C59;
  63.         visibility: hidden">
  64. </OBJECT>
  65.  
  66. <SCRIPT LANGUAGE="VBScript">
  67. sub MonthViewDiv_ShowEventDetails( id, tab, isLinked )
  68.     if isLinked = "1" then
  69.         ShowLinkedEventDetails id
  70.     end if
  71. end sub
  72. sub MonthPickerCtrl_Refresh()
  73.     DayViewDivRefresh
  74.     ToolBarCtrl.RefreshDayMonthTitle
  75. end sub
  76. sub MonthPickerCtrl_RefreshTodayBtn()
  77.     TodayButtonRefresh
  78. end sub    
  79. sub DVListDiv_ShowEventDetails( id, tab, isLinked )
  80.     if isLinked = "1" then
  81.         ShowLinkedEventDetails id
  82.     end if
  83. end sub
  84. </SCRIPT>
  85.  
  86.  
  87. <OBJECT id=WeekViewDiv
  88.     CLASSID="clsid:B6F041A2-48B9-4d3f-A91D-90E17C505FD3"
  89.     Width=100% Height=100%
  90.     STYLE="position: absolute; top:    46px; left:    0px; 
  91.         border-left: 1px solid black;
  92.         visibility: hidden; 
  93.         height: expression(document.body.clientHeight - 46);"
  94.     >
  95.     <PARAM NAME="ViewType" VALUE="WeekView">
  96. </OBJECT>
  97.  
  98.  
  99. <!-- DAY VIEW DIV -->
  100.  
  101. <OBJECT id=DayViewDiv
  102.     CLASSID="clsid:B6F041A2-48B9-4d3f-A91D-90E17C505FD3"
  103.     Width=100% Height=100%
  104.     STYLE="position: absolute; top:    46px; left:    0px; 
  105.     border-left: 1px solid black;
  106.     visibility: hidden; 
  107.     height: expression(document.body.clientHeight - 46);"
  108.     >
  109.     <PARAM NAME="ViewType" VALUE="DayView">
  110. </OBJECT>
  111.  
  112. </BODY>
  113. </HTML>
  114.